home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / Battle of Britain 1 ••••• / Battle of Britain 1 еееее / card_6566.txt < prev    next >
Text File  |  1990-08-26  |  26KB  |  1,281 lines

  1. -- card: 6566 from stack: in
  2. -- bmap block id: 4839
  3. -- flags: 4000
  4. -- background id: 2789
  5. -- name: E
  6. ----- HyperTalk script -----
  7. on openCard
  8.  
  9.   global justVisiting,BBDATE,reset,bbtime,landtime
  10.   put 4 into standby
  11.   put 7 into ordered
  12.   put 8 into landed
  13.   repeat
  14.     if hilite of button ordered is true then
  15.       set hilite of button ordered to false
  16.       set hilite of button landed to true
  17.     end if
  18.     if hilite of button landed is true then
  19.       IF LANDTIME <BBTIME THEN
  20.         SET HILITE OF BUTTON LANDED TO FALSE          --new
  21.         set hilite of button standby to true
  22.  
  23.       end if
  24.     END IF
  25.     add 7 to standby
  26.     add 7 to ordered
  27.     add 7 to landed
  28.     if landed >23 then           --CHANGE
  29.       exit repeat
  30.     end if
  31.   end repeat
  32.  
  33.   if justVisiting is empty then
  34.     exit openCard
  35.   end if
  36.   put 2 into released
  37.   put 3 into avail
  38.   put 5 into patrol
  39.   put 6 into detail
  40.   HIDE CARD FIELD "SHUTDOWN"
  41.   repeat 3 TIMES
  42.     if hilite of button patrol is true or hilite of button detail is true then
  43.       send "go" to button patrol
  44.     else
  45.       if hilite of button released is true then
  46.         send "go" to button released
  47.       else
  48.         send "go" to button avail
  49.       end if
  50.     end if
  51.  
  52.     add 7 to released
  53.     add 7 to avail
  54.     add 7 to patrol
  55.   end repeat
  56.  
  57.   if bbDate contains "AUG 31" THEN SET THE RECT OF CARD FIELD "HIDESQUADS" TO 308,0,512,342
  58.   if reset =1 then
  59.     REPEAT WITH I =1 TO THE NUMBER OF BUTTONS
  60.       SET  HILITE OF BUTTON I TO FALSE
  61.     END REPEAT
  62.     SET HILITE OF BUTTON 4 TO TRUE
  63.     SET HILITE OF BUTTON 11 TO TRUE
  64.     SET HILITE OF BUTTON 18 TO TRUE
  65.  
  66.     SET RECT OF CARD FIELD "HIDESQUADS" TO 244,0,512,342
  67.     HIDE CARD FIELD "SHUTDOWN"
  68.     repeat with i =166 to 168
  69.       put empty into card field id i
  70.     end repeat
  71.   end if
  72. end openCard
  73. ON SHUTDOWN
  74.   SHOW CARD FIELD "SHUTDOWN" OF CARD "E"             --NEW
  75. END SHUTDOWN
  76. on closecard
  77.   hide card field "outofrange"
  78. end closecard
  79.  
  80.  
  81.  
  82.  
  83. -- part 64 (button)
  84. -- low flags: 00
  85. -- high flags: 0000
  86. -- rect: left=9 top=53 right=157 bottom=95
  87. -- title width / last selected line: 0
  88. -- icon id / first selected line: 0 / 0
  89. -- text alignment: 1
  90. -- font id: 0
  91. -- text size: 12
  92. -- style flags: 0
  93. -- line height: 16
  94. -- part name: Map
  95. ----- HyperTalk script -----
  96. on mouseUp
  97.   go to card "map"
  98. end mouseUp
  99.  
  100.  
  101.  
  102. -- part 121 (button)
  103. -- low flags: 00
  104. -- high flags: 0000
  105. -- rect: left=116 top=44 right=66 bottom=168
  106. -- title width / last selected line: 0
  107. -- icon id / first selected line: 0 / 0
  108. -- text alignment: 1
  109. -- font id: 0
  110. -- text size: 12
  111. -- style flags: 0
  112. -- line height: 16
  113. -- part name: 
  114. ----- HyperTalk script -----
  115. on mouseDown
  116.   put 28 into releaseDate
  117.   if hilite of ME is true then
  118.     show card field id releaseDate at the mouseh, the mousev
  119.   else
  120.     beep
  121.     exit mouseDown
  122.   end if
  123. end mouseDown
  124.  
  125. on mouseUp
  126.   put 28 into releaseDate
  127.   hide card field id releaseDate
  128. end mouseUp
  129.  
  130. on go
  131.   GLOBAL AVAIL,RELEASEDATE
  132.   put 3 into avail
  133.   put 28 into releaseDate
  134.   RELEASE
  135. END GO
  136.  
  137.  
  138.  
  139.  
  140.  
  141.  
  142.  
  143.  
  144.  
  145.  
  146.  
  147.  
  148.  
  149.  
  150.  
  151.  
  152.  
  153. -- part 122 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=116 top=65 right=85 bottom=168
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: 
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   beep
  168.   if hilite of me is false then exit mouseUp
  169.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  170. end mouseUp
  171.  
  172. on go
  173.   put 4 into standby
  174.   if hilite of ME is true then
  175.     set the hilite of  ME to false
  176.     set the hilite of button standby to true
  177.   end if
  178. end go
  179.  
  180.  
  181.  
  182.  
  183.  
  184. -- part 123 (button)
  185. -- low flags: 00
  186. -- high flags: 4000
  187. -- rect: left=116 top=84 right=108 bottom=168
  188. -- title width / last selected line: 0
  189. -- icon id / first selected line: 0 / 0
  190. -- text alignment: 1
  191. -- font id: 0
  192. -- text size: 12
  193. -- style flags: 0
  194. -- line height: 16
  195. -- part name: 
  196. ----- HyperTalk script -----
  197. on mouseUp
  198.  
  199.   beep
  200.  
  201. end mouseUp
  202.  
  203.  
  204.  
  205.  
  206. -- part 124 (button)
  207. -- low flags: 00
  208. -- high flags: 0000
  209. -- rect: left=116 top=107 right=132 bottom=168
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 0 / 0
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: 
  218. ----- HyperTalk script -----
  219. on mouseDown
  220.   put 2 into released
  221.   put 3 into avail
  222.  
  223.   if hilite of button released is true or hilite of button avail is true then
  224.     beep
  225.     show card field "nono" at the mouseh, the mousev
  226.   end if
  227. end mouseDown
  228.  
  229. on mouseUp
  230.   global warning
  231.   put 4 into standby
  232.   put "241,61" into coord     ---CHANGES
  233.   put 81 into idplane
  234.  
  235.   if hilite of button standby is true then
  236.     if warning is not "L" and warning is not "N" then
  237.       set hilite of button standby to false
  238.       set hilite of the target to true
  239.  
  240.       show button id idplane of card "map" at coord
  241.     else
  242.       beep
  243.       show card field "outOfRange" at the mouseh, the mousev
  244.     end if
  245.   end if
  246.   hide card field "nono"
  247. end mouseUp
  248.  
  249. on go
  250.   put 4 into standby
  251.   put "241,61" into coord     ---CHANGES
  252.   put 81 into idplane
  253.  
  254.   set hilite of me to false
  255.   set hilite of button standby to true
  256.  
  257.   hide button id idplane of card "map" --at coord
  258.  
  259. end go
  260.  
  261.  
  262.  
  263.  
  264.  
  265.  
  266.  
  267.  
  268.  
  269. -- part 125 (button)
  270. -- low flags: 00
  271. -- high flags: 0000
  272. -- rect: left=116 top=144 right=172 bottom=168
  273. -- title width / last selected line: 0
  274. -- icon id / first selected line: 0 / 0
  275. -- text alignment: 1
  276. -- font id: 0
  277. -- text size: 12
  278. -- style flags: 0
  279. -- line height: 16
  280. -- part name: SQD56E
  281. ----- HyperTalk script -----
  282. on mouseUp
  283.  
  284.   global avail,standby,patrol,detail,idplane,enroute,warning
  285.   if warning is empty then
  286.     beep
  287.     show card field "whatraid" at the mouseh, the mousev
  288.     exit mouseUp
  289.   end if
  290.  
  291.   put 3 into avail
  292.   put 4 into standby
  293.   put 5 into patrol
  294.   put 6 into detail                                         --CHANGES
  295.   put 81 into idplane
  296.   put "E" into enroute
  297.   detail
  298. end mouseUp
  299.  
  300. on go
  301.   global numSquads,force,avail,standby,patrol,detail,idplane,sorties
  302.   put 3 into avail
  303.   put 4 into standby
  304.   put 5 into patrol
  305.   put 6 into detail                                         --CHANGES
  306.   put 81 into idplane
  307.   put 166 into sorties
  308.   if hilite of button patrol is true or hilite of button standby is true then
  309.     add 2 to force                                        --CHANGES
  310.     set hilite of button patrol to false
  311.     set hilite of button standby to false
  312.   end if
  313.   if hilite of button avail is true then add 1.5 to force   --CHANGES
  314.   put the length of card field id sorties into exp
  315.   divide exp by 20
  316.   add exp to force
  317.   put "/" after card field id sorties
  318.   goa
  319. end go
  320.  
  321.  
  322. on results
  323.   global damage,force,bforce,fforce,done
  324.   global released,avail,releaseDate,base,coord,idplane,sorties
  325.   put 2 into released
  326.   put 3 into avail
  327.   put 28 into releaseDate                                 --CHANGES
  328.   put "E" into base
  329.   put "241,61" into coord     ---CHANGES
  330.   put 81 into idplane
  331.  
  332.   put 166 into sorties
  333.   resultsa
  334. end results
  335.  
  336.  
  337.  
  338.  
  339.  
  340.  
  341.  
  342.  
  343.  
  344. -- part 126 (button)
  345. -- low flags: 00
  346. -- high flags: 0000
  347. -- rect: left=116 top=171 right=201 bottom=168
  348. -- title width / last selected line: 0
  349. -- icon id / first selected line: 0 / 0
  350. -- text alignment: 1
  351. -- font id: 0
  352. -- text size: 12
  353. -- style flags: 0
  354. -- line height: 16
  355. -- part name: 
  356. ----- HyperTalk script -----
  357. on mouseUp
  358.   global coord,patrol,detail,idplane
  359.   put "241,61" into coord     ---CHANGES
  360.   put 81 into idplane
  361.  
  362.   put 5 into patrol
  363.   put 6 into detail                                          --CHANGES
  364.  
  365.   land
  366. end mouseUp
  367.  
  368.  
  369.  
  370.  
  371.  
  372. -- part 127 (button)
  373. -- low flags: 00
  374. -- high flags: 0000
  375. -- rect: left=116 top=200 right=229 bottom=168
  376. -- title width / last selected line: 0
  377. -- icon id / first selected line: 0 / 0
  378. -- text alignment: 1
  379. -- font id: 0
  380. -- text size: 12
  381. -- style flags: 0
  382. -- line height: 16
  383. -- part name: 
  384. ----- HyperTalk script -----
  385. on mouseUp
  386.   beep
  387. end mouseUp
  388.  
  389.  
  390.  
  391.  
  392. -- part 128 (button)
  393. -- low flags: 00
  394. -- high flags: 0000
  395. -- rect: left=180 top=44 right=66 bottom=232
  396. -- title width / last selected line: 0
  397. -- icon id / first selected line: 0 / 0
  398. -- text alignment: 1
  399. -- font id: 0
  400. -- text size: 12
  401. -- style flags: 0
  402. -- line height: 16
  403. -- part name: 
  404. ----- HyperTalk script -----
  405. on mouseDown
  406.   put 60 into releaseDate                   --CHANGE
  407.   if hilite of ME is true then
  408.     show card field id releaseDate at the mouseh, the mousev
  409.   else
  410.     beep
  411.     exit mouseDown
  412.   end if
  413. end mouseDown
  414.  
  415. on mouseUp
  416.   put 60 into releaseDate                    --CHANGE
  417.   hide card field id releaseDate
  418. end mouseUp
  419.  
  420. on go
  421.   GLOBAL AVAIL,RELEASEDATE
  422.   put 10 into avail                           --CHANGES
  423.   put 60 into releaseDate
  424.   RELEASE
  425. END GO
  426.  
  427.  
  428.  
  429.  
  430.  
  431.  
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439. -- part 129 (button)
  440. -- low flags: 00
  441. -- high flags: 0000
  442. -- rect: left=180 top=65 right=85 bottom=232
  443. -- title width / last selected line: 0
  444. -- icon id / first selected line: 0 / 0
  445. -- text alignment: 1
  446. -- font id: 0
  447. -- text size: 12
  448. -- style flags: 0
  449. -- line height: 16
  450. -- part name: 
  451. ----- HyperTalk script -----
  452. on mouseup
  453.   beep
  454.   if hilite of me is false then exit mouseUp
  455.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  456. end mouseup
  457.  
  458. on go
  459.  
  460.   put 11 into standby
  461.   if hilite of me is true then
  462.     set the hilite of me to false
  463.     set the hilite of button standby to true
  464.   end if
  465. end go
  466.  
  467.  
  468.  
  469.  
  470.  
  471. -- part 130 (button)
  472. -- low flags: 00
  473. -- high flags: 4000
  474. -- rect: left=180 top=84 right=108 bottom=232
  475. -- title width / last selected line: 0
  476. -- icon id / first selected line: 0 / 0
  477. -- text alignment: 1
  478. -- font id: 0
  479. -- text size: 12
  480. -- style flags: 0
  481. -- line height: 16
  482. -- part name: 
  483. ----- HyperTalk script -----
  484. on mouseUp
  485.   beep
  486. end mouseUp
  487.  
  488.  
  489.  
  490.  
  491. -- part 131 (button)
  492. -- low flags: 00
  493. -- high flags: 0000
  494. -- rect: left=180 top=107 right=132 bottom=232
  495. -- title width / last selected line: 0
  496. -- icon id / first selected line: 0 / 0
  497. -- text alignment: 1
  498. -- font id: 0
  499. -- text size: 12
  500. -- style flags: 0
  501. -- line height: 16
  502. -- part name: 
  503. ----- HyperTalk script -----
  504. on mouseDown
  505.   put 9 into released
  506.   put 10 into avail
  507.   if hilite of button released is true or hilite of button avail is true then
  508.     beep
  509.     show card field "nono" at the mouseh, the mousev
  510.   end if
  511. end mouseDown
  512.  
  513. on mouseUp
  514.   global warning
  515.   put 11 into standby
  516.   put "241,76" into coord               --CHANGES
  517.   put 82 into idplane
  518.  
  519.   if hilite of button standby is true then
  520.     if warning is not "L" and warning is not "N" then
  521.       set hilite of button standby to false
  522.       set hilite of ME to true
  523.  
  524.       show button id idplane of card "map" at coord
  525.     else
  526.       beep
  527.       show card field "outOfRange" at the mouseh, the mousev
  528.     end if
  529.   end if
  530.   hide card field "nono"
  531. end mouseUp
  532.  
  533. on go
  534.   put 11 into standby                                     --CHANGES
  535.   put "241,76" into coord               --CHANGES
  536.   put 82 into idplane
  537.   set hilite of me to false
  538.   set hilite of button standby to true
  539.  
  540.   hide button id IDPLANE of card "map" --at coord
  541.  
  542. end go
  543.  
  544.  
  545.  
  546.  
  547.  
  548.  
  549.  
  550.  
  551. -- part 132 (button)
  552. -- low flags: 00
  553. -- high flags: 0000
  554. -- rect: left=180 top=144 right=172 bottom=232
  555. -- title width / last selected line: 0
  556. -- icon id / first selected line: 0 / 0
  557. -- text alignment: 1
  558. -- font id: 0
  559. -- text size: 12
  560. -- style flags: 0
  561. -- line height: 16
  562. -- part name: SQ151E
  563. ----- HyperTalk script -----
  564. on mouseUp
  565.  
  566.   global avail,standby,patrol,detail,idplane,enroute,warning
  567.   if warning is empty then
  568.     beep
  569.     show card field "whatraid" at the mouseh, the mousev
  570.     exit mouseUp
  571.   end if
  572.  
  573.   put 10 into avail
  574.   put 11 into standby
  575.   put 12 into patrol
  576.   put 13 into detail                                         --CHANGES
  577.   put 82 into idplane
  578.   put "E" into enroute
  579.   detail
  580. end mouseUp
  581.  
  582. on go
  583.   global numSquads,force,avail,standby,patrol,detail,idplane
  584.   put 10 into avail
  585.   put 11 into standby
  586.   put 12 into patrol
  587.   put 13 into detail                                         --CHANGES
  588.   put 82 into idplane
  589.   put 167 into sorties
  590.   if hilite of button patrol is true or hilite of button standby is true then
  591.     add 2 to force                                        --CHANGES
  592.     set hilite of button patrol to false
  593.     set hilite of button standby to false
  594.   end if
  595.   if hilite of button avail is true then add 1.5 to force  --CHANGES
  596.   put the length of card field id sorties into exp
  597.   divide exp by 20
  598.   add exp to force
  599.   put "/" after card field id sorties
  600.   goa
  601. end go
  602.  
  603.  
  604. on results
  605.   global damage,force,bforce,fforce,done
  606.   global released,avail,releaseDate,base,coord,idplane,sorties
  607.   put 9 into released
  608.   put 10 into avail
  609.   put 60 into releaseDate                                 --CHANGES
  610.   put "E" into base
  611.   put "241,76" into coord               --CHANGES
  612.   put 82 into idplane
  613.   put 167 into sorties
  614.   resultsa
  615. end results
  616.  
  617.  
  618.  
  619.  
  620.  
  621.  
  622.  
  623.  
  624.  
  625.  
  626.  
  627.  
  628.  
  629.  
  630.  
  631.  
  632. -- part 133 (button)
  633. -- low flags: 00
  634. -- high flags: 0000
  635. -- rect: left=180 top=171 right=201 bottom=232
  636. -- title width / last selected line: 0
  637. -- icon id / first selected line: 0 / 0
  638. -- text alignment: 1
  639. -- font id: 0
  640. -- text size: 12
  641. -- style flags: 0
  642. -- line height: 16
  643. -- part name: 
  644. ----- HyperTalk script -----
  645. on mouseUp
  646.   global coord,patrol,detail,idplane
  647.   put "241,76" into coord               --CHANGES
  648.   put 82 into idplane
  649.   put 12 into patrol
  650.   put 13 into detail                                          --CHANGES
  651.  
  652.   land
  653. end mouseUp
  654.  
  655.  
  656.  
  657.  
  658.  
  659. -- part 134 (button)
  660. -- low flags: 00
  661. -- high flags: 0000
  662. -- rect: left=180 top=200 right=229 bottom=232
  663. -- title width / last selected line: 0
  664. -- icon id / first selected line: 0 / 0
  665. -- text alignment: 1
  666. -- font id: 0
  667. -- text size: 12
  668. -- style flags: 0
  669. -- line height: 16
  670. -- part name: 
  671. ----- HyperTalk script -----
  672. on mouseUp
  673.   beep
  674. end mouseUp
  675.  
  676.  
  677.  
  678.  
  679. -- part 135 (button)
  680. -- low flags: 00
  681. -- high flags: 0000
  682. -- rect: left=244 top=44 right=66 bottom=296
  683. -- title width / last selected line: 0
  684. -- icon id / first selected line: 0 / 0
  685. -- text alignment: 1
  686. -- font id: 0
  687. -- text size: 12
  688. -- style flags: 0
  689. -- line height: 16
  690. -- part name: 
  691. ----- HyperTalk script -----
  692. on mouseDown
  693.   put 61 into releaseDate                   --CHANGE
  694.   if hilite of ME is true then
  695.     show card field id releaseDate at the mouseh, the mousev
  696.   else
  697.     beep
  698.     exit mouseDown
  699.   end if
  700. end mouseDown
  701.  
  702. on mouseUp
  703.   put 61 into releaseDate                    --CHANGE
  704.   hide card field id releaseDate
  705. end mouseUp
  706.  
  707. on go
  708.   GLOBAL AVAIL,RELEASEDATE
  709.   put 17 into avail                           --CHANGES
  710.   put 61 into releaseDate
  711.   RELEASE
  712. END GO
  713.  
  714.  
  715.  
  716.  
  717. -- part 136 (button)
  718. -- low flags: 00
  719. -- high flags: 0000
  720. -- rect: left=244 top=65 right=85 bottom=296
  721. -- title width / last selected line: 0
  722. -- icon id / first selected line: 0 / 0
  723. -- text alignment: 1
  724. -- font id: 0
  725. -- text size: 12
  726. -- style flags: 0
  727. -- line height: 16
  728. -- part name: 
  729. ----- HyperTalk script -----
  730. on mouseUp
  731.   beep
  732.   if hilite of me is false then exit mouseUp
  733.   SHOW CARD FIELD "PUB" at the mouseh, the mousev
  734. end mouseUp
  735.  
  736. on go
  737.  
  738.   put 18 into standby
  739.  
  740.   if hilite of me is true then
  741.     set the hilite of me to false
  742.     set the hilite of button standby to true
  743.   end if
  744.  
  745.  
  746. end go
  747.  
  748.  
  749.  
  750.  
  751.  
  752. -- part 137 (button)
  753. -- low flags: 00
  754. -- high flags: 4000
  755. -- rect: left=244 top=84 right=108 bottom=296
  756. -- title width / last selected line: 0
  757. -- icon id / first selected line: 0 / 0
  758. -- text alignment: 1
  759. -- font id: 0
  760. -- text size: 12
  761. -- style flags: 0
  762. -- line height: 16
  763. -- part name: 
  764. ----- HyperTalk script -----
  765. on mouseup
  766.   beep
  767. end mouseup
  768.  
  769.  
  770.  
  771.  
  772. -- part 138 (button)
  773. -- low flags: 00
  774. -- high flags: 0000
  775. -- rect: left=244 top=107 right=132 bottom=296
  776. -- title width / last selected line: 0
  777. -- icon id / first selected line: 0 / 0
  778. -- text alignment: 1
  779. -- font id: 0
  780. -- text size: 12
  781. -- style flags: 0
  782. -- line height: 16
  783. -- part name: 
  784. ----- HyperTalk script -----
  785. on mouseDown
  786.   put 16 into released             -- CHANGES
  787.   put 17 into avail
  788.  
  789.   if hilite of button released is true or hilite of button avail is true then
  790.     beep
  791.     show card field "nono" at the mouseh, the mousev
  792.   end if
  793. end mouseDown
  794.  
  795. on mouseUp
  796.   global warning
  797.   put 18 into standby
  798.   put "226,76" into coord
  799.   put 83 into idplane
  800.  
  801.   if hilite of button standby is true then
  802.     if warning is not "L" and warning is not "N" then
  803.       set hilite of button standby to false
  804.       set hilite of ME to true
  805.  
  806.       show button id idplane of card "map" at coord
  807.     else
  808.       beep
  809.       show card field "outOfRange" at the mouseh, the mousev
  810.     end if
  811.   end if
  812.   hide card field "nono"
  813. end mouseUp
  814.  
  815. on go
  816.   put 18 into standby
  817.   put "226,76" into coord
  818.   put 83 into idplane
  819.   set hilite of me to false
  820.   set hilite of button standby to true
  821.  
  822.   hide button id idplane of card "map"
  823.  
  824. end go
  825.  
  826.  
  827.  
  828.  
  829.  
  830.  
  831.  
  832.  
  833.  
  834.  
  835.  
  836.  
  837. -- part 60 (field)
  838. -- low flags: 81
  839. -- high flags: 2004
  840. -- rect: left=170 top=35 right=91 bottom=245
  841. -- title width / last selected line: 0
  842. -- icon id / first selected line: 0 / 0
  843. -- text alignment: 1
  844. -- font id: 3
  845. -- text size: 9
  846. -- style flags: 0
  847. -- line height: 10
  848. -- part name: releaseDate2
  849. ----- HyperTalk script -----
  850. on mouseUp
  851.   hide card field "releaseDate2"
  852. end mouseUp
  853.  
  854.  
  855.  
  856. -- part 139 (button)
  857. -- low flags: 00
  858. -- high flags: 0000
  859. -- rect: left=244 top=144 right=172 bottom=296
  860. -- title width / last selected line: 0
  861. -- icon id / first selected line: 0 / 0
  862. -- text alignment: 1
  863. -- font id: 0
  864. -- text size: 12
  865. -- style flags: 0
  866. -- line height: 16
  867. -- part name: SQ249E
  868. ----- HyperTalk script -----
  869. on mouseUp
  870.   --global warning,objective,range,range2
  871.   global avail,standby,patrol,detail,idplane,enroute,warning
  872.   if warning is empty then
  873.     beep
  874.     show card field "whatraid" at the mouseh, the mousev
  875.     exit mouseUp
  876.   end if
  877.  
  878.   put 17 into avail
  879.   put 18 into standby
  880.   put 19 into patrol
  881.   put 20 into detail                                         --CHANGES
  882.   put 83 into idplane
  883.   put "E" into enroute
  884.   detail
  885. end mouseUp
  886.  
  887. on go
  888.   global numSquads,force,avail,standby,patrol,detail,idplane
  889.   put 17 into avail
  890.   put 18 into standby
  891.   put 19 into patrol
  892.   put 20 into detail                                         --CHANGES
  893.   put 83 into idplane
  894.   put 168 into sorties
  895.   if hilite of button patrol is true or hilite of button standby is true then
  896.     add 3 to force                                        --CHANGES
  897.     set hilite of button patrol to false
  898.     set hilite of button standby to false
  899.   end if
  900.   if hilite of button avail is true then add 2 to force     --CHANGES
  901.   put the length of card field id sorties into exp
  902.   divide exp by 20
  903.   add exp to force
  904.   put "/" after card field id sorties
  905.   goa
  906. end go
  907.  
  908.  
  909. on results
  910.   global damage,force,bforce,fforce,done
  911.   global released,avail,releaseDate,base,coord,idplane,sorties
  912.   put 16 into released
  913.   put 17 into avail
  914.   put 61 into releaseDate                                 --CHANGES
  915.   put "E" into base
  916.   put "226,76" into coord
  917.   put 83 into idplane
  918.   put 168 into sorties
  919.   resultsa
  920. end results
  921.  
  922.  
  923.  
  924.  
  925.  
  926.  
  927.  
  928.  
  929.  
  930.  
  931.  
  932.  
  933.  
  934.  
  935. -- part 140 (button)
  936. -- low flags: 00
  937. -- high flags: 0000
  938. -- rect: left=244 top=171 right=201 bottom=296
  939. -- title width / last selected line: 0
  940. -- icon id / first selected line: 0 / 0
  941. -- text alignment: 1
  942. -- font id: 0
  943. -- text size: 12
  944. -- style flags: 0
  945. -- line height: 16
  946. -- part name: 
  947. ----- HyperTalk script -----
  948. on mouseUp
  949.   global coord,patrol,detail,idplane
  950.   put "226,76" into coord
  951.   put 83 into idplane
  952.   put 19 into patrol
  953.   put 20 into detail                                          --CHANGES
  954.  
  955.   land
  956. end mouseUp
  957.  
  958.  
  959.  
  960.  
  961. -- part 141 (button)
  962. -- low flags: 00
  963. -- high flags: 0000
  964. -- rect: left=244 top=200 right=229 bottom=296
  965. -- title width / last selected line: 0
  966. -- icon id / first selected line: 0 / 0
  967. -- text alignment: 1
  968. -- font id: 0
  969. -- text size: 12
  970. -- style flags: 0
  971. -- line height: 16
  972. -- part name: 
  973. ----- HyperTalk script -----
  974. on mouseUp
  975.   beep
  976. end mouseUp
  977.  
  978.  
  979.  
  980.  
  981. -- part 62 (field)
  982. -- low flags: 81
  983. -- high flags: 2004
  984. -- rect: left=292 top=33 right=87 bottom=367
  985. -- title width / last selected line: 0
  986. -- icon id / first selected line: 0 / 0
  987. -- text alignment: 1
  988. -- font id: 3
  989. -- text size: 9
  990. -- style flags: 0
  991. -- line height: 10
  992. -- part name: releaseDate4
  993. ----- HyperTalk script -----
  994. on mouseUp
  995.   hide card field "releaseDate4"
  996. end mouseUp
  997.  
  998.  
  999.  
  1000. -- part 61 (field)
  1001. -- low flags: 81
  1002. -- high flags: 2004
  1003. -- rect: left=232 top=29 right=85 bottom=306
  1004. -- title width / last selected line: 0
  1005. -- icon id / first selected line: 0 / 0
  1006. -- text alignment: 1
  1007. -- font id: 3
  1008. -- text size: 9
  1009. -- style flags: 0
  1010. -- line height: 10
  1011. -- part name: releaseDate3
  1012. ----- HyperTalk script -----
  1013. on mouseUp
  1014.   hide card field "releaseDate3"
  1015. end mouseUp
  1016.  
  1017.  
  1018.  
  1019. -- part 63 (field)
  1020. -- low flags: 81
  1021. -- high flags: 2004
  1022. -- rect: left=362 top=34 right=88 bottom=437
  1023. -- title width / last selected line: 0
  1024. -- icon id / first selected line: 0 / 0
  1025. -- text alignment: 1
  1026. -- font id: 3
  1027. -- text size: 9
  1028. -- style flags: 0
  1029. -- line height: 10
  1030. -- part name: releaseDate5
  1031. ----- HyperTalk script -----
  1032. on mouseUp
  1033.   hide card field "releaseDate5"
  1034. end mouseUp
  1035.  
  1036.  
  1037.  
  1038. -- part 109 (field)
  1039. -- low flags: 81
  1040. -- high flags: 2004
  1041. -- rect: left=431 top=33 right=88 bottom=506
  1042. -- title width / last selected line: 0
  1043. -- icon id / first selected line: 0 / 0
  1044. -- text alignment: 1
  1045. -- font id: 3
  1046. -- text size: 9
  1047. -- style flags: 0
  1048. -- line height: 10
  1049. -- part name: releaseDate6
  1050. ----- HyperTalk script -----
  1051. on mouseUp
  1052.   hide card field "releaseDate6"
  1053. end mouseUp
  1054.  
  1055.  
  1056.  
  1057. -- part 166 (field)
  1058. -- low flags: 00
  1059. -- high flags: 0000
  1060. -- rect: left=123 top=254 right=307 bottom=160
  1061. -- title width / last selected line: 0
  1062. -- icon id / first selected line: 0 / 0
  1063. -- text alignment: 0
  1064. -- font id: 3
  1065. -- text size: 9
  1066. -- style flags: 0
  1067. -- line height: 10
  1068. -- part name: sorties
  1069.  
  1070.  
  1071. -- part 167 (field)
  1072. -- low flags: 00
  1073. -- high flags: 0000
  1074. -- rect: left=187 top=254 right=307 bottom=224
  1075. -- title width / last selected line: 0
  1076. -- icon id / first selected line: 0 / 0
  1077. -- text alignment: 0
  1078. -- font id: 3
  1079. -- text size: 9
  1080. -- style flags: 0
  1081. -- line height: 10
  1082. -- part name: sorties
  1083.  
  1084.  
  1085. -- part 168 (field)
  1086. -- low flags: 00
  1087. -- high flags: 0000
  1088. -- rect: left=251 top=254 right=308 bottom=288
  1089. -- title width / last selected line: 0
  1090. -- icon id / first selected line: 0 / 0
  1091. -- text alignment: 0
  1092. -- font id: 3
  1093. -- text size: 9
  1094. -- style flags: 0
  1095. -- line height: 10
  1096. -- part name: sorties
  1097.  
  1098.  
  1099. -- part 31 (field)
  1100. -- low flags: 01
  1101. -- high flags: 0001
  1102. -- rect: left=244 top=0 right=342 bottom=512
  1103. -- title width / last selected line: 0
  1104. -- icon id / first selected line: 0 / 0
  1105. -- text alignment: 0
  1106. -- font id: 3
  1107. -- text size: 12
  1108. -- style flags: 0
  1109. -- line height: 16
  1110. -- part name: hideSquads
  1111.  
  1112.  
  1113. -- part 165 (field)
  1114. -- low flags: 81
  1115. -- high flags: 2004
  1116. -- rect: left=37 top=97 right=122 bottom=93
  1117. -- title width / last selected line: 0
  1118. -- icon id / first selected line: 0 / 0
  1119. -- text alignment: 1
  1120. -- font id: 3
  1121. -- text size: 10
  1122. -- style flags: 0
  1123. -- line height: 12
  1124. -- part name: outOfRange
  1125. ----- HyperTalk script -----
  1126. on mouseUp
  1127.   hide card field "outOfRange"
  1128. end mouseUp
  1129.  
  1130.  
  1131. -- part 173 (field)
  1132. -- low flags: 81
  1133. -- high flags: 2004
  1134. -- rect: left=174 top=70 right=94 bottom=239
  1135. -- title width / last selected line: 0
  1136. -- icon id / first selected line: 0 / 0
  1137. -- text alignment: 1
  1138. -- font id: 3
  1139. -- text size: 9
  1140. -- style flags: 0
  1141. -- line height: 10
  1142. -- part name: PUB
  1143. ----- HyperTalk script -----
  1144. ON MOUSEUP
  1145.   HIDE card field "pub"
  1146. END MOUSEUP
  1147.  
  1148.  
  1149.  
  1150.  
  1151. -- part 28 (field)
  1152. -- low flags: 81
  1153. -- high flags: 2004
  1154. -- rect: left=108 top=31 right=87 bottom=185
  1155. -- title width / last selected line: 0
  1156. -- icon id / first selected line: 0 / 0
  1157. -- text alignment: 1
  1158. -- font id: 3
  1159. -- text size: 9
  1160. -- style flags: 0
  1161. -- line height: 10
  1162. -- part name: releaseDate
  1163. ----- HyperTalk script -----
  1164. on mouseUp
  1165.   hide card field "releaseDate"
  1166. end mouseUp
  1167.  
  1168.  
  1169.  
  1170. -- part 174 (field)
  1171. -- low flags: 81
  1172. -- high flags: 2004
  1173. -- rect: left=230 top=136 right=178 bottom=304
  1174. -- title width / last selected line: 0
  1175. -- icon id / first selected line: 0 / 0
  1176. -- text alignment: 1
  1177. -- font id: 3
  1178. -- text size: 9
  1179. -- style flags: 0
  1180. -- line height: 10
  1181. -- part name: whatRaid
  1182. ----- HyperTalk script -----
  1183. on mouseUp
  1184.   hide card field "whatRaid"
  1185. end mouseUp
  1186.  
  1187.  
  1188. -- part 176 (field)
  1189. -- low flags: 81
  1190. -- high flags: 2004
  1191. -- rect: left=101 top=8 right=106 bottom=503
  1192. -- title width / last selected line: 0
  1193. -- icon id / first selected line: 0 / 0
  1194. -- text alignment: 1
  1195. -- font id: 2
  1196. -- text size: 20
  1197. -- style flags: 8192
  1198. -- line height: 22
  1199. -- part name: shutdown
  1200.  
  1201.  
  1202. -- part 16 (field)
  1203. -- low flags: 81
  1204. -- high flags: 0004
  1205. -- rect: left=90 top=91 right=160 bottom=178
  1206. -- title width / last selected line: 0
  1207. -- icon id / first selected line: 0 / 0
  1208. -- text alignment: 1
  1209. -- font id: 3
  1210. -- text size: 9
  1211. -- style flags: 0
  1212. -- line height: 12
  1213. -- part name: nono
  1214. ----- HyperTalk script -----
  1215. on mouseUp
  1216.   hide card field id 16
  1217. end mouseUp
  1218.  
  1219.  
  1220.  
  1221. -- part contents for card part 16
  1222. ----- text -----
  1223. You cannot order a RELEASED or AVAILABLE squadron on patrol.
  1224.  
  1225. -- part contents for card part 60
  1226. ----- text -----
  1227. AVAILABLE
  1228. IN 0 DAYS
  1229. PATCHING UP PLANES
  1230.  
  1231. -- part contents for card part 61
  1232. ----- text -----
  1233. AVAILABLE
  1234. IN 4 DAYS
  1235. PATCHING UP PLANES
  1236.  
  1237. -- part contents for card part 62
  1238. ----- text -----
  1239. AVAILABLE
  1240. IN 4 DAYS
  1241. PATCHING UP PLANES
  1242.  
  1243.  
  1244. -- part contents for card part 63
  1245. ----- text -----
  1246. AVAILABLE
  1247. IN 4 DAYS
  1248. PATCHING UP PLANES
  1249.  
  1250.  
  1251. -- part contents for card part 109
  1252. ----- text -----
  1253. AVAILABLE
  1254. IN 4 DAYS
  1255. PATCHING UP PLANES
  1256.  
  1257.  
  1258. -- part contents for card part 165
  1259. ----- text -----
  1260. Too Far.
  1261.  
  1262. -- part contents for card part 28
  1263. ----- text -----
  1264. AVAILABLE
  1265. IN 0 DAYS
  1266. PATCHING UP PLANES
  1267.  
  1268.  
  1269. -- part contents for card part 173
  1270. ----- text -----
  1271. At the pub.
  1272.  
  1273. -- part contents for card part 174
  1274. ----- text -----
  1275.  
  1276. What raid?
  1277.  
  1278. -- part contents for card part 176
  1279. ----- text -----
  1280. DUE TO  BOMB DAMAGE 
  1281. NORMAL OPERATIONS AT THIS AERODROME ARE TEMPORARILY DISRUPTED.